Select Code to Download

use re 'debug';
my $str = "abc";
...
                             |   0| BRANCH failed...
Match failed
Freeing REx: ".|$"

my $str = "abc";
print $str =~ m/(.)|$/g ? "matched! ".($1//'$') : 'no match', "\n"
...
matched! c
matched! $
no match