while (<>)
{
   study($_); # Study the default target $_ before doing lots of matches on it
   if (m/regex 1/) { ... }
   if (m/regex 2/) { ... }
   if (m/regex 3/) { ... }
   if (m/regex 4/) { ... }
}




-----------------------------------------------------------------------------
Copyright 1997-2025 Jeffrey Friedl