my ($number) = $string =~ /^\w{3}(\d+)/;
print $number,"\n";