Select Code to Download

$a .= ".pl";

$a = "$a.pl";

$a =  pack("A*A*",$a,".pl");

my $x = sub {return shift() . shift()};
$a = &$x($a,".pl");

$a=~s#$#.pl#;