#!/usr/bin/perl
use strict;
use warnings;
use Tie::File;

my $value_to_delete = <STDIN>;
chomp $value_to_delete;

tie my @file, 'Tie::File', "file" or die "Couldn't open: $!";

@file = grep { $_ ne $value_to_delete } @file;

untie @file;