Select Code to Download

my $line = "root (hd1,1)";
my $match = qr/root \(hd[0-9],[0-9]\)/;
...
    print "match 1 found \n";

}