my $regex= qr|