Sample
PP: (899040) Jane Smith
Output
PP: 899040 Jane Smith

##</code><code>##

my $filename = "filename";
open my $file, '<', $filename;
@fileinput=<$file>;
close($file);

foreach $line(@fileinput)
{
my $test=($line);
if($test=~s/\(|\)//g)
{ print $test;
}

##</code><code>##

the output appeared to be
PP: 8945, it didn''t get the 6 digits number