in reply to Removing first part of string with regex
I would use split() (with LIMIT) for this:
my ( $first, $rest ) = split m{\.}, $line, 2; [download]