++

With the /m modifier, the first solution also works on multiline input: print $_ and print s/(^|\G)\t/____/mgr for "\tHello\t\n\t\tWorld\t!\n\t!\n";