#! /usr/local/bin/perl5 $border = "#"x60; print($border,"\n"); print("Enter some word, and I'll give you the negative, "); $input = <STDIN>; chop($input); $neg_input = "anti".$input; $input .="less"; print("$neg_input and $input\n"); print($border,"\n");