#!/usr/bin/perl -w
$_="Testing numbers 12";
print "Numbers: <$1>" if ( /(\d*)/ );