#!/usr/bin/perl

use strict;
use warnings;

# Pfade zu den Dateien
my $infile = 'textfile.txt';
my $outfile = 'textfile_out.txt';

# Dateien öffnen
open my $inFH, "<", $infile or die $!;
open my $outFH, ">", $outfile or die $!;

# Quelldatei auslesen und Ergebnisse in Ausgabedatei schreiben
while (my $txt = <$inFH>) {
    chomp($txt);
    next unless my ($term) = ($txt =~ m/.+=(.+)$/);
    my $result = eval($term);
    print $outFH "$txt=$result\n";
}

close $inFH;
close $outFH;

# Subs ############################################
sub POT {
    return $_[0]**2;
}
sub SQRT {
    return sqrt($_[0]);
}