Select Code to Download

# assign valid strings
my @valid = (
...
  '$-1.11',
  '$-.11',
);

# assign valid strings
my @valid = qw(
   $1
...
   $-1.11
   $-.11
);