clean_history.pl without the patterns

gistfile1.pl

#!/usr/bin/perl

use 5.014;
use warnings;
use autodie;
use utf8::all;
use IO::All;

die 'No input file specified.' if ( $#ARGV == -1 );

my @patterns = map {qr/^$_/xms} @{
    [   '(?:mk|rm)dir\ ',
        '(?:acroread|epdfview)\ ',
# etc..
    ]
    };

foreach my $fname (@ARGV) {
    my @content = io($fname)->slurp;
    foreach (@content) { s/^\s+//xms; s/[ ]+$//xms; }

    open my $fh, '>', $fname . '_clean';
    open my $junk, '>', $fname . '_junked.log';

LINE: foreach my $line (@content) {
        foreach my $re (@patterns) {
            if ( $line =~ $re ) {
                print {$junk} $line;
                next LINE;
            }
        }
        print {$fh} $line;
    }

    close $fh;
    close $junk;
}