my $s = 'samir: 23 yearold';
$s =~ /^(.*: \d+)/;
my $NameAge = $1;
print "$NameAge\n";