Select Code to Download

perl -alne 'print $F[1] if /user\@example.com/' /home/bob/db.txt

use warnings;
use strict;
...
    chomp;
    print((split ' ')[1], "\n") if /user\@example.com/;
}