You could use B::Deparse to translate that into a Perl program:
$ perl -MO=Deparse -pi -e 's/\/Im0\ Do//g' BEGIN { $^I = ""; } LINE: while (defined($_ = <ARGV>)) { s[/Im0\ Do][]g; } continue { print $_; } -e syntax OK
Which could also be written as:
#!/usr/bin/perl use warnings; use strict; $^I = ''; while ( <> ) { s/\/Im0 Do//g; print; }
In reply to Re: in place edit - how to do
by jwkrahn
in thread in place edit - how to do
by smanicka
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |