Help for this page

Select Code to Download

Select or download this

my $line;
        open (FILEHANDLE, "<$new");
...
        }
        close FILEHANDLE;
        close OUT;

Select or download this

my $line;
open (FILEHANDLE, ">>$new");
...
    $line =~ s/0906\s406\s2427/$SIMCard/g; 
}
close FILEHANDLE;