$line=<FILE> if $line =~ /regexp/;