#!/usr/bin/perl

use strict;
use warnings;

my $string = 'belp;2015-06-25 10:40:01;uptime 20037241.55';

if ($string =~ /.+uptime (\d+\.?\d*)$/) {

    my $uptime = $1;
    
    if ($uptime < 7200) {
        
        print "Weniger als 2h!";
    
    } else {
    
        print "Gleich oder mehr als 2h!";
        
    }

} else {
    
    print "Problem: Kann uptime nicht aus string extrahieren!";
    
}