use v5;
use strict;
use feature 'say';


our $1;

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

##</code><code>##

Match: 

##</code><code>##

lanx@nc10-ubuntu:~$ perl
use strict;
use feature 'say';


our $1;

if ("abc" =~ m/(a)/ ) {
  say "Match: ", $1;
}
__END__
Match: a