Help for this page
`sed 's/^ \{2,\}//' -i filename.html`;
system('sed','s/^ \{2,\}//', '-i', 'filename.html') == 0 or die "Couldn't launch sed: $! / $?";
use Tie::File; my $filename = 'filename.html'; ... for (@file) { s/^ {2}//; };