#!/usr/bin/perl
use strict;
use warnings;
use feature "switch";
while(my $line=<DATA>){
given ($line) {
when
(/push/) { print 'found push' } when
(/add/) { print 'found add' } }
}
__DATA__
add
ICAgICMhL3Vzci9iaW4vcGVybAogICAgdXNlIHN0cmljdDsKICAgIHVzZSB3YXJuaW5nczsKICAgIHVzZSBmZWF0dXJlICJzd2l0Y2giOwogICAgd2hpbGUobXkgJGxpbmU9PERBVEE+KXsKICAgICAgICBnaXZlbiAoJGxpbmUpIHsKICAgICAgICB3aGVuICgvcHVzaC8pIHsgcHJpbnQgJ2ZvdW5kIHB1c2gnIH0KICAgICAgICB3aGVuICgvYWRkLykgeyBwcmludCAnZm91bmQgYWRkJyB9CiAgICAgICAgfQogICAgfQogICAgX19EQVRBX18KICAgIHB1c2ggY29uc3RhbnQgNwogICAgcHVzaCBjb25zdGFudCA4CiAgICBhZGQ=