my @x = ( "1234" =~ m/(\d)/ );  # @x contains a captured match of "1"
my @y = ( "1234" =~ m/34/ );    # @y contains a "1" for a successful match
print "x=(@x), y=(@y)\n";
# x=(1), y=(1)