Help for this page
if (/\bAPI|APIN|UWI\s*\./) { $myvar = $something; }
if (/\bAPI|APIN|UWI\s*\./) { somesub($matchedpart); }
if (/\bAPI|APIN|UWI\s*./) { $matchedpart =~ /\bAPI|APIN|UWI\s*./; somesub($matchedpart); }