sub safeswitch
{
        no strict 'refs';
        my @P = map { $$_ } 0..@+;
        $_[0] =~ s/\$(\d+)/$P[$1]/g;
        $_[0];
}