#!/usr/bin/perl -w

use strict;

my $user=`whoami`;
my @ps=`ps aux |grep $user`;
#print @ps;
foreach(@ps){
  $_ =~ s!.*pts/\([0-9][0-9]*\).*!$1!;
  print $_;
}
exit 0