#!/usr/bin/perl
my $tst=$ARGV[0];
$tst =~ s/\*/\.\*/;
print "$tst";
