$a = "/home/a/ff.pl";

print "full path name is ", $a, "\n";

if ( $a =~ /^(\/home\/)(\S+).*$/ ) {
    print "\$1 = ", $1, "\n";    # output is  /home/
    print "\$2 = ", $2, "\n";    # output is  a/ff.pl

}

##</code><code>##

 if ($a =~ /^(\/home\/)(\W)(\S+).*$/)