Help for this page

Select Code to Download

Select or download this

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