in reply to Required help on substitution using a string in perl
$abs =~ s/.*\Q$input_var\E.*\n?//; [download]
For more information please consult perlretut and perlre.