if ( $user =~ /(.*)\^/ ) {
  my $user_name = $1;
}