perl -e 'my $var = "hello"; $var =~ s!\D[01] file\Ks!!ig;'