Select Code to Download

use strict;
use warnings;
...
my $line = q{   aaa bbb ccc ddd eee fff    };
( $line ) = split( ' ', $line, 1 );
print qq{-->$line<--\n};

-->aaa bbb ccc ddd eee fff    <--