Help for this page

Select Code to Download


  1. or download this
    $a =~ (m/\d\d\.\d\d/) || $_ =~ (m/\$\d\d\d\.\d\d\d/) || $_ =~ (m/\$\.\
+d\d/);
  2. or download this
    chomp $a;
$a =~ (m/\d\d\.\d\d/) || $a =~ (m/\$\d\d\d\.\d\d\d/) || $a =~ (m/\$\.\
+d\d/);
  3. or download this
    chomp $a;
$a =~ (m/\d{2,3}.\d{2,3}/) || $a =~ (m/\$\d{3}.\d\{2}/) || $a =~ (m/\$
+\.\d{2}/);