Help for this page

Select Code to Download

Select or download this

$string =~ /(\X+)\s+(\X+)/;

print "String: $string\n";
print "Verify: $1 -- $2 \n";

Select or download this

$string =~ /(\X+)\s+(\X+)/;
print "String: $string\n";
print "Verify: $1 -- $2 \n";