Select Code to Download

use warnings;
use strict;
...
my ( $name, $data ) = $line =~ m/^(\S+)\s+(.+)$/;

print "[$name][$data]";