$ perl -wE 'my $s = "foo 123"; $s =~ /\d+/; say ${^PREMATCH}'
foo