Select Code to Download

foreach my $line (@lines) {

                        $line = $_;

$line[0] =~ s~/4947000219/\K(4947000210+)~$1+$n~e;
$line[1] =~ s{:20140924105028\K(\d+)}{

use strict;