Ditto on ikegami above, tested v5.8.8 built for x86_64-linux-gnu-thread-multi on Ubuntu 8.04 LTS as well as Windows. What happens when you run this?

#!/usr/bin/perl
print "get some string: ";
$dropped = chop($string = <STDIN>);
print ord $dropped, " ", ord $/, "\n";
#$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;
[download]