#!C:\Perl\Bin\$thing = 5;print "$thing \n";$thing = $thing * 2;print "$thing \n";$thing = "Sauron,";print "$thing \n";print $thing . " The Lord of the Rings " . "\n";$thing = $thing * 2;print "$thing\n";$_ = "asdf! \n";print;