String Perl

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