Help for this page

Select Code to Download

Select or download this

my $str = 'hello world';

$str =~ /^(\S+)\s/;

print $1;

Select or download this

my $str = 'hello world';

my ($match) = $str =~ /^(\S+)\s/;

print $match;