if (/\bAPI|APIN|UWI\s*./) {
     $matchedpart =~ /\bAPI|APIN|UWI\s*./;
     somesub($matchedpart);
}