Flash unprojector

die "usage: $0 projector ...\n" unless $#ARGV + 1;
undef $/;
foreach (@ARGV) {
    open FILE, $_ or die "$!\n";
    my $data = <FILE>;
    close FILE;
    s/exe$/swf/i;
    $data =~ s/.+(?=[CF]WS)//s;
    open FILE, ">$_" or die "$!\n";
    print FILE $data;
    close FILE;
}