$_ = 123;
print 1 + m/^\d+$/, "\n"; # get 2
print "1" . m/^\d+$/, "\n"; #get 11