Perl One Liner Search And Rescue