#!/usr/bin/perl -w
open SUBS, "subs.txt"       or die;
my $sub = eval "sub { " . join('', <SUBS>) . "}";
die "Unable to complile subs.txt : $@" if $@;
close SUBS;

open STRINGS, "strings.txt" or die;
while(<STRINGS>) {
  &$sub;
  print;
}
close STRINGS;