perl oneliner에서 match expression을 파일에서 읽어오기

foo bar
abc ABC

#!/usr/bin/env perl
use strict;
use warnings;
 
my @patterns;
open my $fh, '<', 'pattern.cfg';
while (my $pattern = <$fh>) {
    chomp $pattern;
    my ($from, $to) = split ' ', $pattern;
    push @patterns, { from => $from, to => $to };
}
 
 
while(my $line = <DATA>) {
    chomp $line;
    foreach my $pattern (@patterns) {
        my ($from, $to) = ($pattern->{from}, $pattern->{to});
        $line =~ s/$from/$to/;
    }
    print "$line\n";
}
 
__DATA__
abcdef
foobar