foreach (qw<foocatbar foodogbar foonullooops>)
{
  if (/foo(.*)bar/)
  {
    print "$1\n";
  }
  else
  {
    print "not found in $_\n";
  }
}
[download]

Smylers