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