use strict;
use warnings;
use 5.012;

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

say $match;
say $_;