#!/usr/bin/perl
@files = glob("*.msg");
foreach $file(@files) {
    $file =~ s/ /\\\ /g;
    $cmd = "perl script.pl < $file";
    system($cmd);
}