#!/usr/bin/perl while(){ s/\+//g; print $_; } __DATA__ + 5 + 45 +