You are splitting on a whitespace so it only splits it once (because you only have two variables to throw it in) and throws the rest out. What you want is:
in reply to using split on a string
my $pubupload = q"C:\Documents and Settings\Administrator\Desktop\chin
$pubupload =~ /(?:.*)\\(.*?\..*)$/;
When ran, the code gives this output:
And of course to fine the extension, you can split it up from there.
NOTE: I couldn't get split/\./,$pubupload; to work on the whole string, any ideas why?
Tiptoeing up to a Perl hacker.
Dave AKA damian