#!/usr/bin/perl -pi.orig

if(should_change($_)){
    $_ = change_line($_);
}