my $ipn=qr/\( going \) there/;
or
my $ipn=qw/\( going \) there/;