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; } }