#!/usr/bin/perl
$slovo = "primer/slova";
$slovo =~ s/\//*/;
print $slovo;