use warnings;
use strict;

my $line = 'username    Real Name|email@gmail.com|2|30|';

my ( $name, $data ) = $line =~ m/^(\S+)\s+(.+)$/;

print "[$name][$data]";