Select Code to Download

my $string = '/sbc/dasds/sdf/dsd/modem';
my $regex = qr!^${string}!;
...
    print;
    print "\nString equality works\n";
}

my @modems = glob '/sbc/dasds/sdf/dsd/modem*';