$\ = "\n";

my $s = 'abcdefghij';
$s =~ /def/;
print $&;                                # def
print substr($s, $-[0], $+[0] - $-[0]);  # def

$s = '1234567890';
print $&;                                # def
print substr($s, $-[0], $+[0] - $-[0]);  # 456