Select Code to Download

while (my $file = <DATA>)
{
...

    print join('-', @new), "\n";
}

1lc-2621s-RT02-9FL

10lc-7206-3FL-SW02

#! perl
use strict;
...
PP-800c-RT1-TX
10lc-7206-3FL-SW02-ny
LC-6509r-SW1

17:20 >perl 1051_SoPW.pl
01LC-2621S-RT02-09FL-STATE
...
#LC-6509R-SW1-#FL-STATE

17:20 >