#!/usr/bin/perl
  use Regexp::Assemble::Compressed;
  my $ra = Regexp::Assemble::Compressed->new;

$ra->add('乃木坂46');
$ra->add('欅坂46');
$ra->add('けやき坂46');
$ra->add('吉本坂46');
$ra->add('日向坂46');


  $b=$ra->re; # prints a(?:\w?\d+|b+[-c])
  $b=~ s/\?-xism://g;
  $b=~ s/\?://g;
  $b=~ s/\?\^://g;
  print "javascript:(function(){location.href=location.href.replace(/",$b,"/g,'')})();";