#!/usr/bin/perl
# your code goes here
sub main {
my $text = "The code for this device is GP8765.";
if($text =~ /(\w\w\d{2,6})/){
print "The code is: '$1'"; }
else{
}
}
main();
IyEvdXNyL2Jpbi9wZXJsCiMgeW91ciBjb2RlIGdvZXMgaGVyZQoKc3ViIG1haW4gewoJbXkgJHRleHQgPSAiVGhlIGNvZGUgZm9yIHRoaXMgZGV2aWNlIGlzIEdQODc2NS4iOwoJCglpZigkdGV4dCA9fiAvKFx3XHdcZHsyLDZ9KS8pewoJCXByaW50ICJUaGUgY29kZSBpczogJyQxJyI7Cgl9CgllbHNlewoJCXByaW50ICJDb2RlIG5vdCBmb3VuZCI7Cgl9Cn0KCm1haW4oKTs=