eval "&$s()";

##</code><code>##

&{ &UNIVERSAL::can('main', $s) }();

##</code><code>##

my $funcRef = &UNIVERSAL::can('main', $s);
if( ref($funcRef) eq 'CODE' ) { &$funcRef(); }
else { warn "Function $s not found in package main!"; }