Help for this page

Select Code to Download

Select or download this

$_ = 'samir: 23 yearold';
my $match
$match = $1 if /(samir: 23)/;

Select or download this

$_ = 'samir: 23 yearold';
my $match
$match = $1 if /(\w+:\s+\d+)/;