1 2 3
my $test_string = " some test stuff\ndivided to\n provide the challenge"; $test_string =~ s/^[ ]{2}/\t/gm; print $test_string;
some test stuff divided to provide the challenge