use strict;
print 'Perl version is: ', $];
my @foo = qw/ fee fie fo fum big bag boz /;
foreach ( @foo ) {
   if ( $_ !~ /f/ ) { print "Matched: $_ !~ /f/ "  ; } 
   else { print "Failed: $_ !~ /f/ "  ; }
}


Output:
Perl version is: 5.00503
Failed: fee !~ /f/ 
Failed: fie !~ /f/ 
Failed: fo !~ /f/ 
Failed: fum !~ /f/ 
Matched: big !~ /f/ 
Matched: bag !~ /f/ 
Matched: boz !~ /f/