use strict; use warnings;

my $regex = join '|', map qq|\Q$_\E|, qw(sno=; tail->tail head->head);

open my $file, '<file1.txt' or die "$!";
while( <$file> ) { next if /$regex/; print }
close $file;