open SMALL, '<small file' or die "Couldn't open smalllfile; $!\n";
my @find = map { $_ =~ s/^\d{2}:\d{2}(.*)$/$1/; } <SMALL>;
close SMALL or warn "Couldn't close smallfile; $!\n";