in reply to Probably silly regex question / not so silly regex question

Lemme just try to provide something I think will work. My feeble attempt: match backwards to the first dot on the right; that's your extension. The rest is the ID. 
$filename =~ /(.*?)\.(.*?)$/;
$id = $1;
$ext = $2;

[download]
Does that work?

In Section Seekers of Perl Wisdom