in reply to Re: Regexp string concat
in thread Regexp string concat
This is really neat++.
As the target is genome work which usually involves large volumes of big strings, using split '[a-z]+', string; to avoid the capture brackets will save a little time.
my( $string, $qRef ) = @_;
$string =~ tr[A-Z][a-z];
$string =~ s/$_/uc $_/ieg for @$qRef;
length $a > length $b ? $a : $b
} split '[a-z]+',;
Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"Think for yourself!" - Abigail