use strict;
use warn;
my $input = "\$123.45";
if ( $input =~ /\D*(\d{0,3}\.\d{0,2}).*/ ) {
    my $valid = $1;
    print $valid;
} else {
   print "not valid\n";
}