Help for this page

Select Code to Download

Select or download this

foreach my $line (@data){
push (@array , (join($line =~ m/(\d{11})/g , $line =~ m/(\d{6})/g)));
}

Select or download this

foreach my $line (@data){
push (@array , (join("\t" , $line =~ m/(\d{11})/g , $line =~ m/(\d{6})
+/g)));
}