#!/usr/bin/perl -n
print if /^Re: [A-Z]{2,8}, \S+ \S+ \S+$/
