local $\="\n";
print 33 =~ /\d+/;
print int defined $1;
print 33 =~ /(\d+)/;
print int defined $1;
__END__
1
0
33
1