Select Code to Download

{
    local $/ = undef;
...
if ( $names =~ m|First: (\w+)$/Second: (\w+)$/Third: (\w+)|s ) { 
    ....
}