#!/usr/bin/perl
use strict;
use warnings;
use 5.012;

# 948541

my @arr = <DATA>;
for $_(@arr) {
    if ( $_ =~ /([a-z 0-9\+\.]+?)(\d{0,3},{0,1}\d{0,3},{0,1}\d{1,3}) K/i ) { #1
        my $processname = $1;
        my $memory = $2;
        say "$memory --- $processname";
    }
}

#1 NB this regex allows for entries as small as 1K -- a condition 
#   of which you might want to be aware.

=head output:

1,788,180 --- disp+work.exe 3380 Console 0
2,787,204 --- sqlservr.exe 1768 Console 0
1,078,120 --- jlaunch.exe 4608 0
1,830,376 --- sqlservr.exe 1812 0
488,716 --- disp+work.exe 4772 0
17 --- proc 9412 Console 0

=cut

__DATA__
disp+work.exe 3380 Console 0 1,788,180 K
sqlservr.exe 1768 Console 0 2,787,204 K
jlaunch.exe 4608 0 1,078,120 K
sqlservr.exe 1812 0 1,830,376 K
disp+work.exe 4772 0 488,716 K
small_proc 9412 Console 0 17 K