Help for this page

Select Code to Download


  1. or download this
    Sample
PP: (899040) Jane Smith
Output
PP: 899040 Jane Smith
  2. or download this
    my $filename = "filename";
open my $file, '<', $filename;
@fileinput=<$file>;
...
if($test=~s/\(|\)//g)
{ print $test;
}
  3. or download this
    the output appeared to be
PP: 8945, it didn''t get the 6 digits number