#! /usr/bin/perl -l
use strict;
use warnings;

while ( <DATA> ) {
  chomp;
  # nur anwenden, wenn die Zeile nur aus ';' besteht
  $_ = join( 1, split // ) if ( m/\A;+\z/ );

  print $_;  # beachte Option -l
}