$string = 'make'; 
($a,$b) = $string =~ /([^\s]+)\s*?(.*)$/; 
print $a,' -> ',$b;