$b=this_code_is_from_perlmonks_org;

for my $a(some_program_was_written_for_perlmonks_org=~/[st]/g){
    print $a,sprintf '%4s','*'x(2+($a cmp $b)), qq(\n);
    $b=$a
}