- ok $lines[0], MESSAGE1, 'Count 1-10 ( 7)';
- ok $lines[-1], qr/\[=+\]/, 'Count 1-10 ( 8)';
- ok $lines[-1], qr/^@{[NAME1()]}: \s*100%/, 'Count 1-10 ( 9)';
+ is $lines[0], MESSAGE1, 'Count 1-10 ( 7)';
+ like $lines[-1], qr/\[=+\]/, 'Count 1-10 ( 8)';
+ like $lines[-1], qr/^@{[NAME1()]}: \s*100%/, 'Count 1-10 ( 9)';