> echo -e "abc\ndefghi" | perl -wlpe '$_ = "*** $_ " . ( "*" x ( 100-5-length($_)));'
*** abc ********************************************************************************************
*** defghi *****************************************************************************************

sub fill_up {
    my $str = shift;
    my $pat = shift;
    my $max = shift;

    # $pat DARF nur 1 Zeichen sein, sonst passt die Rechnung nicht
    return $str . ( $pat x (100-length $str) );
}


for ( qw( aaaa bbbbbbbbbb ccccccccccccccccccccc ) ) {
    print fill_up( "*** $_ ", "*", 100 ) ;
}

my $lenght=100;
for(qw(Beispielname Texttext foo bar Nachname))
{
  my $str="** $_ $add".('*' x $lenght);
  $str=sunbtr($str,0,$lenght);
  print "$str\n";
}