ramses0

#!/bin/env perl
use Data::Dumper;

my $regexes = {
    linux_screwdriver1   => qr/^screwdriver[0-9]+\./,
    linux_slave_1        => qr/^slave-[0-9]+\./,
    linux_s_1            => qr/^s-[0-9]+\./,
    mac_grumpy           => qr/^grumpy[0-9]+-dm\./,
    mac_darth            => qr/^darthvader[0-9]+-dm\./,
    mac_yoda             => qr/^yoda[0-9]+\./,