Select Code to Download

use strict;
use warnings;
...
foreach my $index (qr/I/, qr/II/, qr/III/) {
    print "Match\n" if $string =~ m/ABC_$index/;
}

use strict;
use warnings;
...
    print "Match\n" if $string =~ m/$fixed$index/;
}