#!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;