if (m/$pat1/ or m/$pat2/ or m/$pat3/) {
   s///;
}