#!/usr/bin/perl

$str = 'banana';
$foo = 'na';
#$str =~ s{/$foo/ge} s{/./-/g}e;
$str =~ s/$foo/$&=~s#.#-#gr/ge;
#$str =~ s/($foo)/$1=s|.|-|rg/egi;
print $str;