Select Code to Download

$s =~ /\\(.*?)$/;   # UPDATE:  THIS IS WRONG!!!
my $endPart = $1;

my $s = "This is a blurb";
if( $s =~ /(\S+)\s\S+\s\S+\s(\S+)/ ){
  print "$1:$2";   # This:blurb
}