Select Code to Download

#!/usr/bin/env perl -l

...
__DATA__
123/; #<
456/; #< a comment

MATCH: TRUE
$1 && $2: FALSE
...
$1 && $2: TRUE
$1='#<'
$2=' a comment'