#!/usr/bin/perl
$text = "Ax0ddFAx49-444 test\n";
$pattern = "[0-9a-z]{10}-[0-9a-z]{3}";
if ($text =~ m/($pattern)/i ) {
#true;
};
IyEvdXNyL2Jpbi9wZXJsCiR0ZXh0ID0gIkF4MGRkRkF4NDktNDQ0IHRlc3RcbiI7CiRwYXR0ZXJuID0gIlswLTlhLXpdezEwfS1bMC05YS16XXszfSI7CmlmICgkdGV4dCA9fiBtLygkcGF0dGVybikvaSApIHsKICAjdHJ1ZTsKICBwcmludCAiJDEiOwp9Owo=