#!/usr/local/bin/perl

$input{price} = "Above $400,000";

print $input{price};

$input{price} =~ tr/$, //d;


if ($input{price} =~ /Above/) {
    $input{price} =~ tr/A-Za-z //d; 
    $lb = $input{price}
} 
elsif ($input{price} =~ /Below/) {
    $input{price} =~ tr/A-Za-z //d;
    $lb = "0"
} 
else {
    ($lb,$dummy) = split(/-/,$input{price},2)
};



