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