$_ = 'Hello my name is A0';
my $r = 'Hello\smy\sname\sis\s(\w.*)';
print $1 if m/$r/;