use strict;
use warnings;
my $string = 'title: ABC_II';

my $fixed = qr/ABC_/;
foreach my $index (q(I II III)) {
    print "Match\n" if $string =~ m/$fixed$index/;
}