#!perl -w
use Devel::Size 'size';

print size('Price: \$([0-9]+\.[0-9]+)'), "\n";
print size(qr/Price: \$([0-9]+\.[0-9]+)/), "\n";
__END__
50
104