Help for this page

Select Code to Download

Select or download this

my $text = 'my model TT1986 is 6 months old";
#my $text = 'my model TT1986 is 12 months old";

    $text =~ /(\d?\d)/;
    print $1;

Select or download this

    $text =~ /^\b(\d?\d)/;
    print $1;