while (<DATA>){
    m/
        (\w+)\s(\d+)\s(\d+)\s(\w+)
        (?{$_ = "$1 $3 $2 $4 +" if $2 > $3})
    /x;
    ...
}