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 ... ...