$s = 'abc nbc cbs fox hbo sho cnn rox';
($orig, $num, $subst) = ('n', 2, '-');

$s =~ s/^(([^$orig]*$orig){$num})(.*)/$1/;
($t = $3) =~ s/$orig/$subst/g;
$s .= $t;

print $s