#!/usr/bin/perl use strict; use warnings; my $txt = "OK - Free: 275845 MB (53.88%) Used: 236148 MB (46.12%) Total: 511993 MB (100%)"; my ($extract) = ($txt =~ m/Used: (\d+)/); print $extract;