- ok $lines[0], MESSAGE1;
- ok $lines[-1], qr/bob:\s+\d+% \#+/, 'Count 1-10 (6)';
- ok $lines[-1], qr/^bob:\s+100%/, 'Count 1-10 (7)';
+ is $lines[0], MESSAGE1;
+ like $lines[-1], qr/bob:\s+\d+% \#+/, 'Count 1-10 (6)';
+ like $lines[-1], qr/^bob:\s+100%/, 'Count 1-10 (7)';