package Filt;
use Filter::Simple;

FILTER {
   my @set = split /\n/,$_;
   my $new = '';
   foreach my $line (@set) {
      if ($line =~ /\=\~/) {
         $new .= "\$t->start('$line');\n";
         $new .= $line . "\n";
         $new .= "\$t->stop();\n";
      } else {
         $new .= $line . "\n";
      }
   }
   $_ = $new;
};

1 ;