my $line = <FH>;
$line = readline(*FH) if $line =~ /$some_regex/;