use strict;
use CGI;
my $query = new CGI;

my @ary = ($query->param('the_textarea')) =~ m/([A-Z]{3}\d{4})/gs;
print '||',join('||', @ary),'||';