use Carp;
($f, $e) = &sex_ext ($ARGV[0]);
print "fname : $f ; ext : $e\n";
sub sex_ext {
    local $_ = reverse $_[0] or 
        carp "no filename supplied to sex_ext!\n";
    #no period or ext found, return original arg
    return $_[0] unless /(.*?)\.(.+)/; 
    my $fname = reverse$2;
    my $ext= reverse $1;
    return ($fname, $ext);    
}