while ($rec =~ m![\w/]+!g) { $word = $&; }