@inputFileContent = map {

                                                my $line = $_;
                                                my $retval = undef;
                                                if ($line =~ m/$regex/){
                                                        print "match, removing this line\n";
                                                }
                                                else{
                                                        print "no match, nothing will happen\n";
                                                        $retval = $line;
                                                }
                                                $retval;

                                        } @inputFileContent;