Help for this page
my $re = <STDIN>; chomp ($re); ... else { print "no match"; }
a\d3 a23
a23 =~ /a\d3/ match