my $high_number = 0;
open (F1, "<new.txt") or die "cant open it$!";
while (<F1>) {
my ($number) = m/:(\d+):/;
$high_number = $number if $number > $high_number;
 }
print "Highest number found = $high_number\n";
close (F1);