$/="====\n\n";

open (READFROM, "$readfrom") or die "Cannot open $readfrom: $!";

open (WRITETO, ">$writeto") or die "Cannot open $writeto: $!";

while ( <READFROM> ) 
{ 
  chomp; 
  my $price;

  for ( 0 .. 1)
  {
    $_ =~ m/
         (
           \$
           (?:\d{1,3},?)+
           (?:\.\d{0,2})?
           (?![.\d])
          )
          /x;

         $price = "$1";
  }
 print "$price\n";

}

close (WRITETO) or die "Cannot close $writeto: $!";

close (READFROM) or die "Cannot close $readfrom: $!";



the bottom part is just a piece of the file we're reading from so you can get an idea

<code>
Boardman $157,000 
COLONIAL/1 ACRE 
WOW! 
We finally found the 4 bedroom home you’ve been looking for. Call our office today for 

details and directions for the best buy in Boardman. Appraised at $157,000. Asking ONLY 

$139,900 
David Realty 330-758-8363  
330-758-8363
====

Boardman  $475 
A BARGAIN - 0 DOWN 
$475 & up/mo. 
2 Bedroom, extra sharp ranch. Ready to occupy, not for rent. Easy to purchase. 2 homes 

available. 
7372 Oregon Trail 
7421 Siera Madre 
All Credit Considered 
Jim Rich Realty 330-783-9300 
====