http://qs1969.pair.com?node_id=495720


in reply to Re: How to deal with long line
in thread How to deal with long line

Thanks a lot it worked fine, I updated it to read from a file:
sub getInfoFromLongLine { #Openning file for reading open(IFH,"$InputFile") || die "Can't open file: $InputFile\n"; my $str = <IFH>; my @wanted_substrings = $str =~ /<A>(.*?)<\/A>/g; return "@wanted_substrings"; }