Select Code to Download

use v5;
use strict;
...
if ("abc" =~ m/(a)/ ) {
  say "Match: ", $1;
}

Match:

lanx@nc10-ubuntu:~$ perl
use strict;
...
}
__END__
Match: a