Select Code to Download

my $pattern ="(".join('|', @{$opts->{params}}).")";
# pattern is now "(a|b)"
...
my @test =  grep { /^$pattern/i } keys %$format;
# @test = ( "bar", "abc" )