#!/usr/bin/perl -p -i.bak

my $kill = "what|ever";
s/$kill//go;
s/^\s+//g;