if( $line =~ /^\s*$/ ) {
  $newline = "Blank line.";
} else {
  $newline = $line;
}