Perlmonks is a great site, so is DevShed $string =~ m%(.*)%;