$ perl -MO=Deparse -anle 'print "Mypath\\MyPerl_2.pl $F[-1]"' BEGIN { $/ = "\n"; $\ = "\n"; } LINE: while (defined($_ = )) { chomp $_; our(@F) = split(' ', $_, 0); print "Mypath\\MyPerl_2.pl $F[-1]"; }