Select Code to Download

    $line =~ s/^\s+//; # ltrim()
    $line =~ s/\s+$//; # rtrim()

ltrim($line,7);
# and
$line2 = ltrim($line,7);