Is there any condition when the following code might fail and/or crash?
Code:$ more filter.pl
#!/usr/bin/perl
my $cont = 0;
while ($line = <STDIN>) {
if ($line =~ /^ /) {
next if $cont;
}
$cont = 0;
foreach $i (@ARGV) {
if ($line =~ /^$i:/) {
$cont = 1;
}
}
if (!$cont) { print $line; }
}