$date = _trim($1) if $line =~ s/.*(\d{2}\/\d{2}\/\d{4})//; $address = _trim($1) if $line =~ /(.*)/; [download]
In reply to Re^2: Parsing Regex by deMize in thread Parsing Regex by deMize