while (<>) {
   chomp;

   s/^ (?: $re \s+ )+//x;
   s/  (?: \s+ $re )+//xg;

   print("$_$/");
}