m/^(?$foo:\d)/
print "Foo is $foo\n";