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