Select Code to Download

    perl -e 'if ("h\@t" =~ /(\@)/ ) { print $1 }'

    #!/usr/bin/perl
    use strict;
...
    my @friends = ('Margaret', 'Richard', 'Carolyn', 
                   'Rohan', 'Cathy', 'Yukiko');
    print "Friends: @friends\n";