my $pattern_re = m/(?:$args{pattern})/o;