@res = 'IS~THISOK?' =~ m/\s*(\S+)\s*(\S+)\s*(\S+)\s*(\S+)\s*/;
print "@res\n";
__DATA__
IS~THIS O K ?