Select Code to Download

#!/usr/bin/perl
use strict;
...
@file = grep { $_ ne $value_to_delete } @file;

untie @file;

#!/usr/bin/perl -pi.orig
BEGIN {$value_to_delete = <STDIN>}
undef $_ if $_ eq $value_to_delete;