if ( /^$fname/ eq "s" )
{
# how do I do the substitution??
printf "hello\n";
}

##</code><code>##

$fname =~ s/^s/_S/;