my ($file,$suffix) = $ARGV[0] =~ /(.*?)(\.[^\.]+)$/;
my $original = $ARGV[0];
my $cut = $file.'.cut'.$suffix;