runrig has asked for the wisdom of the Perl Monks concerning the following question:
#!/usr/local/bin/perl -w use strict; while (<DATA>) { if (my $status=/^Colours/.../^\S/) { last if $status =~ /E0/; print; } } __DATA__ Colours orange yellow red MoreAttributes stuff
|
|---|