#!/usr/local/bin/perl
$string="Price is $9.99 on our website";
($money) = $string =~ m/is\s\$([0-9]{1,2}\.[0-9]{2})\son/g;
print $money;