Select Code to Download

/usr/bin/perl
/usr/bin/ 
/perl 
/ 
perl

if ($string =~ m#(\S*/)(\S*)#) {     
   print "Path = $1, $Filename = $2\n"; 
...
elsif ($string =~ /(\S+)/) {     
   print "No path, Filename = $1\n"; 
}