eval {

 # bla bla
};
for ($@) {
   /NOT FOUND/ && do { 
                      print 'Where'd I put that?';
                      last;
                     };
   print 'Na,ah. Not for you!' if /FORBIDDEN/;
}