my $regexp=qr/--TEST--/o;