Select Code to Download

use strict;
use warnings;
...
    $str =~ s/\s//g;
    return lc $str;
}

#Untried
$_ =~ s/$regex_2/$+{group_x} . $+{group_y} . changer("$+{text}")/e;