Here is some sample Perl. grep bounced /var/log/mail.log | perl -p -e 's|\w+ \w+ \w+ \w+ \w+ \w+ (\w+) (\w+) \w+ \w+ \w+ \w+ \w+ \w+ \w+ \w+ (.*)|\2 \1 \3|g'