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

##</code><code>##

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