#!/usr/bin/perl
print "get some string: ";
chomp($string = <STDIN>);
#$string = $ARGV[0];
#chomp($string);

$string =~ m/\/([[:alnum:]]+)_.*\.(.+)$/;
print "$1\n";
$type = $2;
print "$type\n";

$string =~ m/(.+)\.${type}$/;
#$string =~ m/(.+)\.${type}\Z/;
#$string =~ m/(.+)\.${type}\z/;
#$string =~ m/(.+)\.${type}/;

print "$1\n";

exit 0;