Do I get a fine or something for overusing foreach? But, seriously, what's wrong with this approach?

$dlm = '~';
$str = 'my~mind~has~been~broken';

foreach (split(/$dlm/,$str)) {
  push(@ary,$_,$dlm);
}
$ary[$#ary--];

print join(',',@ary),"\n";
[download]

Sure it's not pretty, but I suppose that's the goal...

#!/home/bbq/bin/perl
# Trust no1!