my @errors = map {qr/$_/} qw( error4 error3 error2 error1 );