Select Code to Download

#!/usr/bin/perl
"simple" =~ /im/ and eval q{ print "<$`><$&><$'>\n" };
...
#!/usr/bin/perl
"capture" =~ /(.t)./ and eval q{ print "<$`><$&><$'>:<$1>\n" };
#<ca><ptu><re>:<pt>