C:\>perl -MO=Deparse
s//text/;
print "troet\n" if $_ =~ /^t/;
print "muuuh\n" if /^t/;
print "quack\n" if /^t.*/;
^Z
s//text/;
print "troet\n" if $_ =~ /^t/;
print "muuuh\n" if /^t/;
print "quack\n" if /^t.*/;
- syntax OK