Select Code to Download

#!/usr/bin/perl -w

...
$temp =~ /^(\w+)/i;

my $firstword = $1;

my $temp = "Firstword and then the rest of the string";

...

my $firstword = $1;
my $restofstring = $2;