Select Code to Download

>>>cat temp.txt
my dog is (red1)
my cat is (blue1)
...
my cat is (blue5)
my dog is (red6)
my cat is (blue6)

#!/usr/bin/perl

$mystring = join("", <>);
...
print $mystring;
print "-----------------------------------------\n";
}

>>>>cat temp.txt | perl temp.pl
-----------mystring--------------------------
my dog is (red1)
...
my dog is (red6)
my cat is (blue6)
-----------------------------------------