#!/usr/bin/perl -w

while($temp=<>){
        $temp=$temp;
        $catch=print $temp;
        print "hello $catch\n";
print "hey:$/: \n";
                
}