# cat r
/Price: \$([0-9]+\.[0-9]+)/;
$searchString = 'Price: \$([0-9]+\.[0-9]+)';
/$searchString/;
# perl -Dr r 2>&1 | grep Compiling
Compiling REx `Price: \$([0-9]+\.[0-9]+)'
Compiling REx `Price: \$([0-9]+\.[0-9]+)'
#