# in code.pl, for example
if ( /test1/ ) { print; }
my $re = qr/test2/;
my @array = split( /test3/, $ARGV[0] );

##</code><code>##

perl -MO=Concise,-exec code.pl | grep "</>"

##</code><code>##

code.pl syntax OK
3  </> match(/"test1"/) s/RTIME
9  </> qr(/"test2"/) s/64
e  </> pushre(/"test3"/) s/64