$s = "samir: 23 yearold"; 
$s =~ m{(.*) \s yearold \z}xms; 
print $1