#!/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__
    push constant 7
    push constant 8
    add