Reformatting cut(1), please wait...
rightcoast@mobileops:~$ perl pl.pl
Bareword found where operator expected at pl.pl line 1, near ""print$1  if(get('http://checkip.dyndns.com/')=~/((\d+\.){3}\d+)/) >>tmp.txt|uuencode -m tmp.txt | mail - s "subject"
        (Missing operator before subject?)
String found where operator expected at pl.pl line 1, at end of line
        (Missing semicolon on previous line?)
syntax error at pl.pl line 1, near "MLWP::Simple -e "
Can't find string terminator '"' anywhere before EOF at pl.pl line 1.