#!/usr/bin/perl
use warnings;
use strict;

$^I = '';
while ( <> ) {
    s/\/Im0 Do//g;
    print;
}