Best to avoid the needless, troublesome, expensive lookbehind by replacing (?<=FOO)BAR with FOO\KBAR.

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

Requires 5.10+