Select Code to Download

my $eq_qq = qr/
    \s+
...
if ($line =~ $long_regex) {
    print "$1\n$2\n$3\n$4\n$5\n$6\n$7\n$8\n$9\n$10";
}

c:\test>220232
3
...
1
F

 
my @fields = $line =~ $long_regex;
if (@fields == 10) {
    # process $fields[0] .. $fields[9] here
}

my ($id, 
    $status, 
...
    # Use $id...
}
...