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

my $n = "3.0";

if ($n == 3) {
    print "Zahl vorher gleich";
} else {
    print "Zahl vorher UNGLEICH!";
}

if ($n eq "3.0") {
    print "String vorher gleich";
} else {
    print "String vorher UNGLEICH!";
}

print "";
$n += 0.0;

if ($n == 3) {
    print "Zahl nachher gleich";
} else {
    print "Zahl nachher UNGLEICH!";
}

if ($n eq "3.0") {
    print "String nachher gleich";
} else {
    print "String nachher UNGLEICH!";
}

__END__
Zahl vorher gleich
String vorher gleich

Zahl nachher gleich
String nachher UNGLEICH!