my @data = ( "blah blah 6/20/2000 4:56 foo bar baz\n",
             "bling blang 20.6.2000 4:56 flzb gzrk\n" );

for my $string ( @data ) {
    $string =~ s{ (\d{1,2}) ([./])
                  (\d{1,2}) \2
                  (\d{4}) \s+ (\d{1,2}):(\d{2})
                }
                {
                  my @a=($2 eq ".") ? ($4,$3,$1) : ($4,$1,$3);
                  sprintf( "%s-%02d-%02d %02d:%s", @a,$5,$6 )
                }ex;

    print $string;
}