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