#!/usr/bin/perl
"simple" =~ /im/ and eval q{ print "<$`><$&><$'>\n" };

###

#!/usr/bin/perl
"complex" =~ /.p/ and eval q{ print "<$`><$&><$'>\n" };
#<co><mp><lex>

###

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