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";
}
[download]