#!/usr/bin/perl
use strict;
use warnings;

# 894373

my $test="PP: (899040) Jane Smith";
$test =~ s/\(|\)//g;
print $test . "\n";

my $test1 = "PP: (899040) Jane Smith";
if ( $test1 =~/([a-zA-Z]+: )\((\d{6})\)( .*)/ ) {
	print $1, $2, $3 . "\n";
}

=head

C:\>894373.pl
PP: 899040 Jane Smith
PP: 899040 Jane Smith

=cut