%triUK = (0 + 0 + 0 => qq//.qq//.qq// => map { (my $foo) = /(\d+)/; $foo => $rev{"*1e$_"} } grep { s/^\*1e//g and /[bB]/ and $_ <= 22 } @dummy = values %parts ); sing("lalalalalah");