#!/usr/bin/perl

print "Output filename: ";
my $filename = (<stdin>); chop ($filename);

system ("rm -Rf RegularExpression");
mkdir ("RegularExpression");

system ("cp ../*.class RegularExpression/");
system ("cp ../*.java RegularExpression/");
system ("cp ../COPYING RegularExpression/");
system ("cp ../README RegularExpression/");

system ("jar -cvf " . $filename . ".jar RegularExpression");

