in reply to Parse tag-delimited input file
use strict; use warnings; my $input = "AN 0005 SR SI CO Me GH EL ub.com UR http://www.xxx.com MA + Me Gm"; my @input = split / +/, $input; print "@input[0..2,4..6] ... ..."; #AN 0005 SR CO Me GH ... ... [download]