use strict;

my $string = 'Price: $21343.355344';
my $searchString = qr|^Price: \$([0-9]+\.[0-9]+)|;

if($string =~ /$searchString/)
{
  print "Matches: $1\n";
}
else
{
  print "No Match: $`\n";
}