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

##</code><code>##

$string = $word . $string;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

$string = $word . $string;