Select Code to Download

my $string = "Here is our test string.";
my $word;
( $word, $string ) = split /^(\w+)\b/, $string, 2;

$string = $word . $string;

my $string = "This is the test string.";
my $word;
( $word, $string ) = $string =~ m/^(\w+)\b(.*)/;

my $string = "Here is our test string.";
my $word = $string =~ s/^(\w+)\b(.*)/$2/;

$string = $word . $string;