use strict;
use warnings;
use 5.012;

my $string = 'This is a string';
my $match = $string =~ m/string/;

say $match;
say $_;


##</code><code>##

1


##</code><code>##

Use of uninitialized value $_ in say at C:\Data\strawberry-perl\perl\script-chrome\Perl-1.pl line 9.