#!/usr/bin/env perl
use strict;
use warnings;
=head1 NAME
options - Test file for ack command line options
=cut
[abc]
@Q_fields = split(/\b(?:a|b|c)\b/)
__DATA__
THIS IS ALL IN UPPER CASE
this is a word here
notawordhere
#!/usr/bin/env perl
use strict;
use warnings;
=head1 NAME
options - Test file for ack command line options
=cut
[abc]
@Q_fields = split(/\b(?:a|b|c)\b/)
__DATA__
THIS IS ALL IN UPPER CASE
this is a word here
notawordhere