no strict;
no warnings;

my %variables = (
	'_blastresult'   => 1138,
	'skip_me'        => 0,
	'_stormtroopers' => 42
);

foreach (keys %variables) {
	eval '$' . $1 . ' = ' . $variables{$_} if (/^_(.*)/s);
}

print $blastresult;