Select Code to Download

while (<DATA>) 
{
...
    push @array, $1 if ( /SW:?\s*([^\n\r]+)/i );
}

:!./test.pl
$VAR1 = '12.2(15)T8,';
...
$VAR7 = 'E5.8.0.3';
$VAR8 = '1.00.00 S';
$VAR9 = '12.0(14)';