#!/usr/bin/env perl
use 5.010; use strict; use warnings;

while(<DATA>){
    chomp;
    if( /^messages(\.|\.\d)?$/ ){
        say "Match:   $_";
    } else {
        say "No match $_";
    }
}
__DATA__
messages
messages.
messages.1
messages.txt
messages.12345